Little bits on data cleaning
just an FYI…
Demographic data = 3,220 observations
Covid data = 3,342 observations - Starting from Jan 2020 to Jan 1 2022 - What is a good way to capture cases? Right now its #Cumulativecases / Population = large number
AQI data = 1,093 observations - possibly retrieve from EPA API… BUT https://cran.r-project.org/web/packages/RAQSAPI/vignettes/RAQSAPIvignette.html
Combined data - about 40 counties that did not cross over, may have to manually
Mapping
Here are some variables: Cumulative Death = Cumulative deaths / Population Cumulative Death per Case = Cumulative deaths / Cumulative Case *Cumulative Case = Cumulative Case / Population
Deaths per cases by county

Cumulative Case rate by county

Deaths per cases by county W/ GGPLOT

Corr plot by variable rates
Error in knitr::include_graphics("~/Documents/School/Spring 2022/PRIME.2/PRIME.CovidAQI/results/fullpermat.cor.png") :
Cannot find the file(s): "~/Documents/School/Spring 2022/PRIME.2/PRIME.CovidAQI/results/fullpermat.cor.png"
AQI average by county

LS0tCnRpdGxlOiAiMy8xNi8yMDIyIFBSSU1FIG1lZXRpbmciCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gRkFMU0UpCmBgYAoKIyMjIExpdHRsZSBiaXRzIG9uIGRhdGEgY2xlYW5pbmcKanVzdCBhbiBGWUkuLi4KCkRlbW9ncmFwaGljIGRhdGEgPSAzLDIyMCBvYnNlcnZhdGlvbnMKCkNvdmlkIGRhdGEgPSAzLDM0MiBvYnNlcnZhdGlvbnMKLSBTdGFydGluZyBmcm9tIEphbiAyMDIwIHRvIEphbiAxIDIwMjIKLSBXaGF0IGlzIGEgZ29vZCB3YXkgdG8gY2FwdHVyZSBjYXNlcz8gUmlnaHQgbm93IGl0cyAjQ3VtdWxhdGl2ZWNhc2VzIC8gUG9wdWxhdGlvbiA9IGxhcmdlIG51bWJlcgoKQVFJIGRhdGEgPSAxLDA5MyBvYnNlcnZhdGlvbnMKLSBwb3NzaWJseSByZXRyaWV2ZSBmcm9tIEVQQSBBUEkuLi4gQlVUIGh0dHBzOi8vY3Jhbi5yLXByb2plY3Qub3JnL3dlYi9wYWNrYWdlcy9SQVFTQVBJL3ZpZ25ldHRlcy9SQVFTQVBJdmlnbmV0dGUuaHRtbAoKCkNvbWJpbmVkIGRhdGEKIC0gYWJvdXQgNDAgY291bnRpZXMgdGhhdCBkaWQgbm90IGNyb3NzIG92ZXIsIG1heSBoYXZlIHRvIG1hbnVhbGx5IAogCiMgTWFwcGluZwpIZXJlIGFyZSBzb21lIHZhcmlhYmxlczoKKkN1bXVsYXRpdmUgRGVhdGggPSBDdW11bGF0aXZlIGRlYXRocyAvIFBvcHVsYXRpb24KKkN1bXVsYXRpdmUgRGVhdGggcGVyIENhc2UgPSBDdW11bGF0aXZlIGRlYXRocyAvIEN1bXVsYXRpdmUgQ2FzZQoqQ3VtdWxhdGl2ZSBDYXNlID0gQ3VtdWxhdGl2ZSBDYXNlIC8gUG9wdWxhdGlvbgoKIyMgIERlYXRocyBwZXIgY2FzZXMgYnkgY291bnR5CmBgYHtyIGRlbW8xLCAgZmlnLmNhcD0nJywgZWNobz1GQUxTRX0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoIn4vRG9jdW1lbnRzL1NjaG9vbC9TcHJpbmcgMjAyMi9QUklNRS4yL1BSSU1FLkNvdmlkQVFJL3Jlc3VsdHMvZGVhdGhzcGVyY2FzZWNvdW50eW1hcC5wbmciKQpgYGAKCiMjICBDdW11bGF0aXZlIENhc2UgcmF0ZSBieSBjb3VudHkKYGBge3IgZGVtbzIsICBmaWcuY2FwPScnLCBlY2hvPUZBTFNFfQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygifi9Eb2N1bWVudHMvU2Nob29sL1NwcmluZyAyMDIyL1BSSU1FLjIvUFJJTUUuQ292aWRBUUkvcmVzdWx0cy9jYXNlcmF0ZWNvdW50eW1hcC5wbmciKQpgYGAKIyMgIERlYXRocyBwZXIgY2FzZXMgYnkgY291bnR5IFcvIEdHUExPVApgYGB7ciBkZW1vMzMsICBmaWcuY2FwPScnLCBlY2hvPUZBTFNFfQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygifi9Eb2N1bWVudHMvU2Nob29sL1NwcmluZyAyMDIyL1BSSU1FLjIvUFJJTUUuQ292aWRBUUkvcmVzdWx0cy9jYXNlcmF0ZWNvdW50eW1hcDIucG5nIikKYGBgCgojIENvcnIgcGxvdCBieSB2YXJpYWJsZSByYXRlcwpgYGB7ciBkZW1vMzQsICBmaWcuY2FwPScnLCBlY2hvPUZBTFNFfQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygifi9Eb2N1bWVudHMvU2Nob29sL1NwcmluZyAyMDIyL1BSSU1FLjIvUFJJTUUuQ292aWRBUUkvcmVzdWx0cy9mdWxscGVybWF0LmNvci5wbmciKQpgYGAKCgojIyAgQVFJIGF2ZXJhZ2UgYnkgY291bnR5CmBgYHtyIGRlbW80LCAgZmlnLmNhcD0nJywgZWNobz1GQUxTRX0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoIn4vRG9jdW1lbnRzL1NjaG9vbC9TcHJpbmcgMjAyMi9QUklNRS4yL1BSSU1FLkNvdmlkQVFJL3Jlc3VsdHMvQVFJY291bnR5bWFwLnBuZyIpCmBgYAoKCgoKCgoKCgoK